home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-dump.el.z / efs-dump.el
Encoding:
Text File  |  1998-05-21  |  1.3 KB  |  41 lines
  1. ;; -*-Emacs-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;;
  4. ;; File:         efs-dump.el
  5. ;; Release:      $efs release: 1.15 $
  6. ;; Version:      #Revision: 1.1 $
  7. ;; RCS:
  8. ;; Description:  Install a bare-bones EFS hook into file-name-handler-alist
  9. ;;               for dumping
  10. ;; Author:       Mike Sperber <sperber@informatik.uni-tuebingen.de>
  11. ;;
  12. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  13.  
  14. (provide 'efs-dump)
  15.  
  16. (defconst efs-dump-version
  17.   (concat (substring "$efs release: 1.15 $" 14 -2)
  18.       "/"
  19.       (substring "#Revision: 1.1 $" 11 -2)))
  20.  
  21. ;;;###autoload
  22. (or (assoc efs-path-root-regexp file-name-handler-alist)
  23.     (setq file-name-handler-alist
  24.       (cons
  25.        (cons efs-path-root-regexp 'remote-path-file-handler-function)
  26.        file-name-handler-alist)))
  27.  
  28. ;;;###autoload
  29. (defun remote-path-file-handler-function (operation &rest args)
  30.   "Function to call special file handlers for remote files."
  31.   (if allow-remote-paths
  32.       (apply 'efs-file-handler-function operation args)
  33.     (let ((inhibit-file-name-handlers
  34.        (cons 'remote-path-file-handler-function
  35.          (and (eq inhibit-file-name-operation operation)
  36.               inhibit-file-name-handlers)))
  37.       (inhibit-file-name-operation operation))
  38.       (apply operation args))))
  39.  
  40. ;;; end of efs-dump.el
  41.